home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00229_Script_GESTION_BTON_MOINS_SON < prev    next >
Text File  |  2002-09-19  |  1KB  |  43 lines
  1. property pdizsprite, pdizspriteNo
  2. global gpisteFondVolume, gvolumeSon, gpisteVumetre, gpisteWarning_Volume, nivSon
  3. ------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo) 
  7. end
  8. -----------------
  9. on mouseEnter
  10.   cursor 280
  11.   sprite(gpisteFondVolume).Member = "FDVOL_LW"
  12.   updateStage
  13. end
  14. ------------------
  15. on mouseUp
  16.   case(gvolumeSon > 0) of
  17.     1:
  18.       gvolumeSon = gvolumeSon - 1
  19.       sprite(gpisteVumetre). member = "NEZ_"&gimme2digits(gvolumeSon)
  20.       repeat with i = 1 to 3
  21.         nivSon[i] = 42.5*(gvolumeSon)
  22.         sound(i).volume = nivSon[i]
  23.         updateStage
  24.       end repeat
  25.       case(gvolumeSon) of
  26.         0:
  27.           member("WARNING_NIV_SON").text = "son = 0"
  28.           sprite(gpisteWarning_Volume).ink = 0
  29.         otherwise:
  30.           member("WARNING_NIV_SON").text = EMPTY
  31.           sprite(gpisteWarning_Volume).ink = 36
  32.       end case
  33.       updateStage
  34.     0:
  35.       beep
  36.   end case
  37. end
  38. ------------------
  39. on mouseLeave
  40.   cursor -1
  41.   puppetsprite  gpisteFondVolume, FALSE
  42. end
  43. ------------------